home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / vr2___ia.p2s < prev    next >
Encoding:
Text File  |  1994-07-13  |  5.3 KB  |  221 lines
  1. ###########################################################################
  2. #
  3. # description:  open video in, record, play and close.
  4. #               Moving monitor window during playback.
  5. # settings: 
  6. #           duration 66665
  7. #           compression: ulti
  8. #           video quality: 5000
  9. #           audio: 44100 samples per sec,  8 bits, 2 channel, volume 100
  10. #           video source: 640 x 480
  11. #           video destination: 320 x 240
  12. #
  13. ###########################################################################
  14.  
  15. ############################################
  16. #
  17. #   open Video In
  18. #
  19. ############################################
  20.  
  21. OPEN DIGITALVIDEO02 ALIAS VID SHAREABLE NOTIFY
  22. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  23. @WAIT_NOTIFY 1 45000
  24.  
  25. ############################################
  26. #
  27. #   set video monitor on/off
  28. #
  29. ############################################
  30.  
  31. SET VID MONITOR ON NOTIFY
  32. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #2
  33. @WAIT_NOTIFY 2 30000
  34.  
  35. status VID monitor wait
  36. =ON
  37.  
  38. ############################################
  39. #
  40. #   enable audio monitor
  41. #
  42. ############################################
  43.  
  44. CONNECTION VID QUERY TYPE WAVE STREAM ALIAS AMP WAIT
  45.  
  46. SET AMP MONITOR ON WAIT
  47.  
  48. ############################################
  49. #
  50. #   load a new file
  51. #
  52. ############################################
  53.  
  54. LOAD VID NEW NOTIFY
  55. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #3
  56. @WAIT_NOTIFY 3 30000
  57.  
  58. ############################################
  59. #
  60. #   set time format to milliseconds
  61. #
  62. ############################################
  63.  
  64. SET VID TIME FORMAT MILLISECONDS NOTIFY
  65. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #4
  66. @WAIT_NOTIFY 4 30000
  67.  
  68.  
  69.  
  70. ############################################
  71. #
  72. #   set compression type:
  73. #     - DIB:  raw = uncompressed
  74. #     - ULTI: ultimotion
  75. #     - RT21: indeo
  76. #
  77. ############################################
  78.  
  79. SET VID VIDEO COMPRESSION ULTI NOTIFY
  80. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #6
  81. @WAIT_NOTIFY 6 30000
  82.  
  83.  
  84. ############################################
  85. #
  86. #   set video quality (0-10000)
  87. #
  88. ############################################
  89.  
  90. SET VID VIDEO QUALITY 5000 NOTIFY
  91. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #7
  92. @WAIT_NOTIFY 7 30000
  93.  
  94.  
  95. set VID video record frame duration 66665 notify
  96. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #11
  97. @WAIT_NOTIFY 11 60000
  98. #
  99. #############################################################################
  100. # check the status of video record frame duration                           #
  101. #############################################################################
  102. #
  103. status vid video record frame duration wait
  104. =66665
  105.  
  106. ############################################
  107. #
  108. #   set audio parameters:
  109. #     - SAMPLESPERSEC: 11025,22050,44100
  110. #     - CHANNEL: 1,2
  111. #     - BITSPERSAMPLE: 8,16
  112. #     - VOLUME: 0-100
  113. #
  114. ############################################
  115.  
  116. SET VID SAMPLESPERSEC 44100 NOTIFY
  117. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #8
  118. @WAIT_NOTIFY 8 30000
  119.  
  120. status VID samplespersec wait
  121. =44100
  122.  
  123. SET VID CHANNELS 2 NOTIFY
  124. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #10
  125. @WAIT_NOTIFY 10 30000
  126.  
  127. SET VID BITSPERSAMPLE 8 NOTIFY
  128. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #12
  129. @WAIT_NOTIFY 12 30000
  130.  
  131. SET VID AUDIO VOLUME 100 NOTIFY
  132. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #14
  133. @WAIT_NOTIFY 14 30000
  134.  
  135. ############################################
  136. #
  137. #   set window size
  138. #
  139. ############################################
  140.  
  141. PUT VID RECORD SOURCE AT 0 100 640 380 NOTIFY
  142. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #16
  143. @WAIT_NOTIFY 16 30000
  144.  
  145. PUT VID RECORD DESTINATION AT 0 0 320 240 NOTIFY
  146. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #18
  147. @WAIT_NOTIFY 18 30000
  148.  
  149. ############################################
  150. #
  151. #   message to user: play source
  152. #
  153. ############################################
  154.  
  155. @BREAK Make sure that the source is already playing
  156.  
  157. ############################################
  158. #
  159. #   move monitor window then record for 10 seconds
  160. #
  161. ############################################
  162.  
  163. put VID monitor move at 100 50 0 0 wait
  164. @pause 5000
  165.  
  166. put VID monitor move at 200 0 100 50 wait
  167. @pause 5000
  168.  
  169. RECORD VID TO 50000 NOTIFY
  170. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #20
  171. @WAIT_NOTIFY 20 50000
  172.  
  173. ############################################
  174. #
  175. #   play and save the file
  176. #
  177. ############################################
  178.  
  179. PLAY VID FROM 0 NOTIFY
  180. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #22
  181. @WAIT_NOTIFY 22 50000
  182.  
  183. save VID delete.avi notify
  184. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #23
  185. @WAIT_NOTIFY 23 50000
  186.  
  187. stop VID wait
  188.  
  189. set VID monitor off wait
  190.  
  191. load VID delete.avi notify
  192. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #25
  193. @WAIT_NOTIFY 25 50000
  194.  
  195. PLAY VID FROM 0 NOTIFY
  196. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #27
  197. @WAIT_NOTIFY 27 50000
  198.  
  199. ############################################
  200. #
  201. #   MOVE WINDOW
  202. #   WAIT FOR SUCCESSFUL PUT
  203. #
  204. ############################################
  205.  
  206. PUT VID WINDOW AT 400 0 500 0 MOVE NOTIFY
  207. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #77
  208. @WAIT_NOTIFY 77 90000
  209. @PAUSE 2000
  210.  
  211.  
  212. ############################################
  213. #
  214. #   close video in
  215. #
  216. ############################################
  217. CLOSE VID NOTIFY
  218. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #29
  219. @WAIT_NOTIFY 29 30000
  220.  
  221.